home *** CD-ROM | disk | FTP | other *** search
/ Always 25 / Always_25_1995-09_Elysium_Sunga_pl_Side_A.d64 / gaypack xxv .run / ARCAID1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  63 lines
  1. 0 rem:arcaid1          e.g. 02-nov-86
  2. 10 ifgl=500then160
  3. 20 ifgl=740then420
  4. 30 ifgl=760then440
  5. 50 print"[147]            [195]reate [193][210][195] file [146]"
  6. 60 print"   [201][206][211][197][210][212] [196][201][211][203] with files to be [193][210][195]'d"
  7. 70 print"  [208]ress [158]$[146] for a directory of [196]rive 8,0."
  8. 80 print" [208]ress [158][211][208][193][195][197] [194][193][210][146] to return to [205]ain [205]enu."
  9. 90 print"       [193]ny other key will continue.":poke198,0
  10. 100 geta$:ifa$=""then100
  11. 101 ifa$<>" "then120
  12. 107 print"[147] [201][206][211][197][210][212] [196][201][211][203] with [193][210][195] [193][201][196] in drive 8,0"
  13. 108 print"           and press any key."
  14. 109 geta$:ifa$=""then109
  15. 110 print"[147]";spc(15);"[204]oading..."
  16. 111 print"[144]load"chr$(34)"arc aid ?.?"chr$(34)",8";:goto580
  17. 120 ifa$<>"$"then190
  18. 130 print"[147]     [211][200][201][198][212] pauses,  [210][213][206]/[211][212][207][208] aborts."
  19. 140 print"dir":print"":gl=500
  20. 150 goto580
  21. 160 poke198,0:print"    [208]ress any key to return to menu.[146]":gl=0
  22. 170 geta$:ifa$=""then170
  23. 180 goto50
  24. 190 print"[147]            [195]reate [193][210][195] file[146]"
  25. 220 input"[193][210][195] file to create";f$:iff$=""thenrun
  26. 230 print"[208]ut [158][196][197][211][212][201][206][193][212][201][207][206] [196][201][211][203][146] in [196]rive 8,0"
  27. 240 ifa=9then340
  28. 245 ifatheninput"[206]ext filename, or [158][210][197][212][213][210][206][146]";fi$(a):goto260
  29. 250 input"[198]ilename, or [158][210][197][212][213][210][206][146]";fi$(a)
  30. 260 iffi$(a)=""then340
  31. 270 print"[156][207]n what drive can this file":input"be found  8,0[157][157][157][157][157]";dv,dr
  32. 280 gosub470:fd$(a)=dr$
  33. 290 fori=1tolen(fi$(a))
  34. 300 ifmid$(fi$(a),i,1)=" "thente$(a)=te$(a)+"?":goto320
  35. 310 te$(a)=te$(a)+mid$(fi$(a),i,1)
  36. 320 next
  37. 330 a=a+1:goto240
  38. 340 iffi$(0)=""thenrun
  39. 350 c$="arc/c a:"+f$:ex$=""
  40. 360 fori=0toa-1
  41. 370 ex$=ex$+" "+fd$(i)+te$(i)
  42. 380 next
  43. 390 c$=c$+ex$
  44. 400 print"[147]";c$:print"":gl=740
  45. 410 goto580
  46. 420 print"[147]arc/l a:"f$:print"":gl=760
  47. 430 goto580
  48. 440 poke198,0:print"    [208]ress any key to return to menu.[146]":gl=0
  49. 450 geta$:ifa$=""then450
  50. 460 run
  51. 470 dr$=""
  52. 480 ifdv=8anddr=0thendr$="a:"
  53. 490 ifdv=8anddr=1thendr$="b:"
  54. 500 ifdv=9anddr=0thendr$="c:"
  55. 510 ifdv=9anddr=1thendr$="d:"
  56. 520 ifdv=10anddr=0thendr$="e:"
  57. 530 ifdv=10anddr=1thendr$="f:"
  58. 540 ifdv=11anddr=0thendr$="g:"
  59. 550 ifdv=11anddr=1thendr$="h:"
  60. 560 return
  61. 570 end
  62. 580 poke631,13:poke632,71:poke633,207:poke635,13:poke636,13:poke198,5:goto570
  63.